home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / SaveAll.rexx < prev    next >
OS/2 REXX Batch file  |  1998-09-09  |  2KB  |  110 lines
  1. /*
  2.  
  3.    v1.30 Save all
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. /* signal on error    */    /* Setup a place for errors to go */
  15.  
  16. PROJECT_LIST
  17. list=result
  18.  
  19. if list="" then exit
  20.  
  21.  
  22. 'REQUEST "Do you want to use your default render settings?" "Yes|No"'
  23. def=result
  24.  
  25.  
  26. if def=="0" then do
  27.  
  28.   'RENDER_GET "How would you like pictures to be rendered?"'
  29.   if RC=5 then exit
  30.   renderoptions=result
  31.  
  32.   parse var renderoptions qq ww ee rr tt yy
  33.  
  34. end
  35.  
  36.  
  37. if exists("ie:prefs/logosavedir.cfg") == "1" then
  38.   do
  39.     call open("def","ie:prefs/logosavedir.cfg","R")
  40.     defdir=readln("def")
  41.     call close("def")
  42.   end
  43. else
  44.   do
  45.     defdir="ram:"
  46.   end
  47.  
  48. 'GET_DIR "And where is the save-directory?" "Save"' '"'defdir'"'
  49. if RC=5 then exit
  50. logosavedir=result
  51. endpart=right(logosavedir,1)
  52. if endpart~=":" & endpart~="/" then logosavedir=logosavedir||"/"
  53.  
  54. call open("def","ie:prefs/logosavedir.cfg","W")
  55. call writeln("def",logosavedir)
  56. call close("def")
  57.  
  58. defdir=logosavedir
  59.  
  60. kpl=words(list)
  61.  
  62. do i=1 to kpl
  63.   pic=subword(list,i,1)
  64.   temppic=strip(left(pic,20),T)
  65.   tmp=0
  66.   do until test=0
  67.     test=exists(defdir""temppic"_"tmp"".ILBM)
  68.     if test=1 then do
  69.       tmp=tmp+1
  70.     end
  71.   end
  72.  
  73.   RENDER_CLOSE pic
  74.   if tt=="0" then 'PALETTE_LOAD' pic 'ie:Palettes/Colorful.palette'
  75.  
  76.   if def=="0" then RENDER_SET pic renderoptions
  77.   RENDER pic
  78.   IE_TO_FRONT
  79.  
  80.  
  81.   savename='"'defdir""temppic"_"tmp"".ILBM'"'
  82.   SAVE pic savename '"'ILBM CmpByteRun1'"'
  83.  
  84.   RENDER_CLOSE pic
  85.  
  86. end
  87.  
  88.  
  89.  
  90.  
  91. exit
  92.  
  93. /*******************************************************************/
  94. /* This is where control goes when an error code is returned by IE */
  95. /* It puts up a message saying what happened and on which line     */
  96. /*******************************************************************/
  97. error:
  98. if RC=5 then do            /* Did the user just cancel us? */
  99.     IE_TO_FRONT
  100.     LAST_ERROR
  101.     'REQUEST "'||RESULT||'"'
  102.     exit
  103. end
  104. else do
  105.     IE_TO_FRONT
  106.     LAST_ERROR
  107.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  108.     exit
  109. end
  110.